home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / aol / disk1 / tymnet.cc_ / tymnet.cc
Encoding:
Text File  |  1994-07-12  |  14.5 KB  |  296 lines
  1. !----------------------------------------------------------------------
  2. !   TYMNET.CCL
  3. !----------------------------------------------------------------------
  4.  
  5. -LABEL 0                { Label 0 }
  6. Revision 1                      { Set the Revision Level }
  7. DsplyMsg Step 1: Initializing modem ...
  8. CanBtn   19                     { If Cancel button - just exit }
  9. SetTries 0                      { Initialize Tries }
  10. ChrDelay 2                      { Initialize Character Delay }
  11. SerReset ~BAUD 0 8 1            { Set the Baud Rate }
  12. HSReset  0 0 17 19              { Reset }
  13. DsplyPic 1                      { Display Picture 1 }
  14. MdmSetup                        { Send out user's premodem init string }
  15.  
  16. -LABEL 1                { Label 1 }
  17. Flush                           { Clear the Inbound/Outbound Buffers }
  18. MatchStr 1 2 ~CMDESC            { Look for "+++" }
  19. MatchStr 2 2 ~CMDOK             { Look for "OK" }      
  20.  
  21. MdmEsc                          { Get the modems attention }
  22. Wait 200                        { Pause for 2 seconds, minimum gap required }
  23.                                 { The Wait will then look at the MatchStr(s) }
  24.  
  25. -Label 2                { Label 2 }     
  26. MatchStr 1 3   ~CMDOK           { Look for "OK" }
  27. MatchStr 2 33  ~CMDERR          { Look for "ERROR" }
  28.                                 
  29. MdmDisc                         { Disconnect }
  30.                                 { Jump to label #3 if we see 'OK' go by }
  31. Wait 200                        { wait for 'OK' from modem }
  32. Jump 33                         { Exit stage left...time out error on modem }
  33.  
  34. -LABEL 3                { Label 3 }
  35. DsplyMsg Step 2: Dialing ~PRFX~CLWT~FONE ...
  36.  
  37. MatchStr 1 43   ~NCTIMEOUT      { ALWAYS look for "TIMEOUT" }
  38. MatchStr 2 42   ~NCCARRIER      { ALWAYS look for "NO CARRIER" }
  39. MatchStr 3  5   ~C300           { Look for "CONNECT 300" }
  40. MatchStr 4  6   ~C1200          { Look for "CONNECT 1200" }
  41. MatchStr 5  7   ~C2400          { Look for "CONNECT 2400" }
  42. MatchStr 6  8   ~C4800          { Look for "CONNECT 4800" }
  43. MatchStr 7  9   ~C9600          { Look for "CONNECT 9600" }
  44. MatchStr 8  10  ~C14400         { Look for "CONNECT 14400" }
  45. MatchStr 9  10  ~C19200         { Look for "CONNECT 19200" }
  46. MatchStr 10 40  ~NCDIALTONE     { Look for "NO DIALTONE" }
  47. MatchStr 11 27  ~NCANSWER       { Look for "NO ANSWER" }
  48. MatchStr 12 41  ~NCVOICE        { Look for "VOICE" }
  49. MatchStr 13 26  ~NCBUSY         { Look for "BUSY" }
  50. MatchStr 14 33  ~CMDERR         { Look for "ERROR" }
  51.  
  52. SetTries 0                      { Initialize Tries to 0 }
  53. CanBtn   18                     { If cancel button hit, Jump to Label 18 }
  54. MdmDial ~TONE ~PRFX~CLWT~FONE   { Dial the Number }
  55.  
  56. Wait 4800                       { Wait for CONNECT msg from modem }
  57. Jump 28                         { Else hang up phone & exit }
  58.  
  59. -Label 5                { Label 5 }
  60. SerReset 300 0 8 1              { Set the CommPort Attributes }
  61. Jump 11                         { Jump to Label 11 }
  62.  
  63. -Label 6                { Label 6 }     
  64. SerReset 1200 0 8 1             { Set the CommPort Attributes }
  65. Jump 11                         { Jump to Label 11 }
  66.  
  67. -Label 7                { Label 7 }
  68. SerReset 2400 0 8 1             { Set the CommPort Attributes }
  69. Jump 11                         { Jump to Label 11 }
  70.  
  71. -Label 8                { Label 8 }
  72. SerReset 4800 0 8 1             { Set the CommPort Attributes }         
  73. Jump 11                         { Jump to Label 11 }
  74.  
  75. -Label 9                { Label 9 }
  76. SerReset 9600 0 8 1             { Set the CommPort Attributes }
  77. Jump 11                         { Jump to Label 11 }
  78.  
  79. -Label 10               { Label 10 }
  80. SerReset 19200 0 8 1            { Set the CommPort Attributes }
  81. Pause 30                        { Pause ... }   
  82. Flush                           { Flush it out }
  83. DsplyPic 2                      { Display Picture 2 }
  84. DsplyMsg Step 3: Connecting at 14400 bps ...
  85. Pause 600                       { Pause ... }
  86. Jump 12                         { Jump to Label 12 } 
  87.  
  88. -LABEL 11               { Label 11 }
  89. Pause 30                        { Pause ... }   
  90. Flush                           { Flush it out }
  91. DsplyPic 2                      { Display Picture 2 }
  92. DsplyMsg Step 3: Connecting at ~BAUD bps ...
  93. Pause 600                       { Pause ... }
  94.  
  95. -LABEL 12               { Label 12 }
  96. SetTries 0                      { Initialize Tries to 0 }
  97.  
  98. -LABEL 13               { Label 13 }
  99. MatchStr 2 44 ~NCCARRIER        { ALWAYS look for "NO CARRIER" }
  100. MatchStr 3 14 LOG IN:           { Look for "LOG IN" }
  101. MatchStr 4 12 IDENTIFIER        { Look for "IDENTIFIER" }
  102. MatchStr 5 28 ABORTED           { Look for "ABORTED" }
  103. MatchStr 6 28 HOST NOT          { Look for "HOST NOT" }
  104. MatchStr 7 16 ERROR             { Look for "ERROR" }
  105. MatchStr 8 28 BAD               { Look for "BAD" }
  106.  
  107. DsplyMsg Step 4: Requesting network attention ...
  108. Flush                           { Flush it out }
  109. Xmit A                          { Send out A }
  110. Wait 900                        { Wait for Reply from Modem }
  111. IncTries                        { Increment Tries }
  112. IfTries 4 28                    { Have we reached 4 tries ??? }
  113. Jump 13                         { Jump to Label 13 }
  114.  
  115. -Label 14               { Label 14 }
  116. MatchStr 3 15 +                 { Look for "+" }
  117. MatchStr 4 34 PASSWORD:         { Look for "PASSWORD" }
  118. MatchStr 5 16 ERROR             { Look for "ERROR" }
  119. DsplyMsg Step 5: Talking to network ...
  120. Xmit ~TYM1;~TYM2\13             { Send out String }
  121. Wait 3600                       { Wait searches MatchStr(s) for hits }
  122. Jump 32                         { No hits, jump to Label 32 }
  123.  
  124. -Label 15               { Label 15 }
  125. MatchStr 3 23 CALL CONNECTED    { Look for "CALL CONNECTED" }
  126. DsplyMsg Step 6: Connecting to America Online ...
  127. Xmit ~TYM3\13                   { Send out String }
  128. Wait 3600                       { Wait searches MatchStr(s) for a hit }
  129. Jump 32                         { No hits, jump to Label 32 }
  130.  
  131. -Label 16               { Label 16 }
  132. SetTries 0                      { Initialize Tries to 0 }     
  133.  
  134. -Label 17               { Label 17 }
  135. MatchStr 3 18 PASSWORD:         { Look for "PASSWORD" }
  136. MatchStr 4 32 ERROR             { Look for "ERROR" }
  137. MatchStr 5 17 LOG IN:           { Look for "LOG IN" }
  138. Xmit ~TYM1\13                   { Send out String }
  139. Wait 3600                       { Wait searches MatchStr(s) for a hit }
  140. IncTries                        { Increment Tries }
  141. IfTries 4 32                    { Have we reached 4 tries ??? }
  142. Jump 17                         { Jump to Label 17 }
  143.  
  144. -Label 18               { Label 18 }
  145. MatchStr 3 15 +                 { Look for "+" }
  146. MatchStr 4 17 LOG IN:           { Look for "LOG IN" }
  147. MatchStr 5 32 ERROR             { Look for "ERROR" }
  148. MatchStr 6 18 PASSWORD:         { Look for "PASSWORD" }
  149. Xmit ~TYM2\13                   { Send out String }
  150. Wait 3600                       { Wait searches MatchStr(s) for a hit }
  151. IncTries                        { Increment Tries }
  152. IfTries 4 32                    { Have we reached 4 tries ??? }
  153. Jump 18                         { Jump to Label 18 }
  154.  
  155. -Label 23               { Label 23 }
  156. DsplyPic 3                      { Display Picture 3 }
  157. DsplyMsg Checking Password ...  { Display a message }
  158. Exit 0                          { Exit out and return 0 }
  159.  
  160. -Label 24               { Label 24 }
  161. Hangup                          { Hangup }
  162. Exit -111                       { Exit out and return -111 }
  163.  
  164. -Label 25               { Label 25 }
  165. Exit -1                         { Exit out and return -1 }
  166.  
  167. !----------------------------------------------------------------------
  168. !                       Error Messages 
  169. !----------------------------------------------------------------------
  170.                         
  171. -Label 26               { Label 26 }      
  172. Talert The number dialed is busy. Please take the following steps:\13 
  173. Talert 1) Try signing on to America Online again.\13 
  174. Talert 2) From the WELCOME screen, click on SETUP\13     then EDIT LOCATION and record the numbers.\13
  175. Talert 3) Call ~ACUS and report the problem.\13
  176. Talert 4) To obtain an alternate Tymnet access number\13     dial 1-800-937-2862.\13
  177. Jump 51                         
  178.  
  179. -Label 27               { Label 27 }
  180. Talert The number dialed is not answering. Please take the following steps:\13
  181. Talert 1) Try signing on to America Online again.\13 
  182. Talert 2) From the WELCOME screen, click on SETUP\13     then EDIT LOCATION and record the numbers.\13
  183. Talert 3) Call ~ACUS and report the problem.\13
  184. Talert 4) To obtain an alternate Tymnet access number\13     dial 1-800-937-2862.\13
  185. Jump 51                         
  186.  
  187. -Label 28               { Label 28 }
  188. Talert The access company failed to respond.\13 \13 1) Please wait a few moments and try to connect to\13     America Online again.\13 
  189. Talert 2) Verify that the correct network is selected by calling\13     Tymnet at 1-800-937-2862.\13
  190. Talert 3) If the problem persists please refer to the help text.\13     From the Welcome screen click on the SETUP \13     button, then the HELP & INFO button.\13 
  191. Jump 51
  192.  
  193. -Label 32               { Label 32 }
  194. Talert The final connection step to ~APPL did not complete.\13 \13 Please wait a few moments and try again.\13
  195. Talert Prior to modifying any modem or system settings\13please refer to the help text. From the Welcome screen\13click on the SETUP button, then the HELP & INFO button.\13 
  196. Jump 51                            
  197.  
  198. -Label 33               { Label 33 }
  199. Talert America Online was unable to initialize your modem.\13Please take the following steps:\13 \13 1) Turn your modem off then back on. \13
  200. Talert 2) Click SETUP, then SETUP MODEM to verify your\13     modem selection.\13 \13 3) Try signing on to America Online again.\13
  201. Talert 4) Check modem cable connections.\13
  202. Talert 5) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13 
  203. Jump 51 
  204.                         
  205. -Label 34               { Label 34 }
  206. Talert There is a bad ~APPL file on your disk.\13
  207. Talert 1) If you have a disk with the current version of\13     America Online then refer to the help text\13     under the HELP menu.\13
  208. Talert 2) Using Windows terminal or another\13     telecommunications package, you can connect to the\13     America Online BBS at 1-800-827-8505 and download\13     the most current version of ~APPL.\13
  209. Talert 3) Call ~ACUS and request a copy of the most\13     recent version America Online.\13
  210. Jump 51
  211.  
  212. -Label 40               { Label 40 }
  213. Talert The modem has reported NO DIAL TONE. Please take the follow steps:\13
  214. Talert 1) Check all phone line connections.\13     The line from the wall must be connected to the\13     connector labeled:\13
  215. Talert \32     "LINE", "TELCO", "WALL" or "JACK".\13 \13     For additional information please refer to your\13     modem manual.\13
  216. Talert 2) Use a telephone to verify that there is a dial tone\13     on the line to the modem.\13
  217. Talert 3) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13
  218. Jump 51
  219.  
  220. -Label 41               { Label 41 }
  221. Talert The number dialed did not connect to the access\13company. Please take the following steps:\13 
  222. Talert 1) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  223. Talert 2) Verify that the access number is valid by calling\13     Tymnet at 1-800-937-2862. \13
  224. Talert 3) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then the HELP & INFO button.\13 
  225. Jump 51
  226.  
  227. -Label 42               { Label 42 }
  228. Talert The modem was unable to get a carrier signal.\13Please take the following steps:\13 
  229. Talert 1) Check all phone line and cable connections\13     to the modem.\13
  230. Talert 2) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  231. Talert 3) Verify that the access number is valid by calling\13     Tymnet at 1-800-937-2862. \13
  232. Talert 4) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then the HELP & INFO button.\13 
  233. Talert 5) If the problem persists, call ~APPL at\13     ~ACUS.\13
  234. Jump 51
  235.  
  236. -Label 43               { Label 43 }
  237. Talert The modem detected a TIMEOUT. Please take the following steps:\13
  238. Talert 1) Your modem may not be working properly.\13     Please try using your modem with another\13     telecommunications package to verify that\13     the modem is working.\13
  239. Talert 2) Verify that the access number is valid by calling\13     Tymnet at 1-800-937-2862. \13
  240. Talert 3) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then the HELP & INFO button.\13 
  241. Jump 51
  242.  
  243. -Label 44               { Label 44 }
  244. Talert The connection to the access company has been lost.\13
  245. Talert Please wait a few moments and try again.\13
  246. Jump 51                            
  247.  
  248. -Label 50               { Label 50 }
  249. Alert 52 \13If the problem persists, call ~APPL customer service at ~ACUS.
  250. Exit -1
  251.  
  252. -Label 51               { Label 51 }
  253. Alert 52 \13
  254. Exit -1
  255.  
  256. -Label 52               { Label 52 }
  257. Exit -1
  258.  
  259.  
  260.  
  261. !----------------------------------------------------------------------
  262. !                       Hangup Sequence 
  263. !----------------------------------------------------------------------
  264.  
  265. *-Label 0               { Label 0 }
  266. *CanBtn 2                       { Cancel Button }
  267. *Flush                          { Flush }
  268.  
  269. *MatchStr 1 1 ~CMDOK            { Look for "OK" }
  270. *MatchStr 2 1 ~NCCARRIER        { Look for "NO CARRIER" }
  271.  
  272. *MdmEsc                         { Get the Modems Attention }
  273. *Wait 210                       { Look at MatchStr(s) }
  274.  
  275. *MatchStr 1 1 ~CMDOK            { Look for "OK" }       
  276. *MatchStr 2 2 ~NCCARRIER        { Look for "NO CARRIER" }
  277. *MatchStr 3 1 ~CMDESC           { Look for "ESC" }
  278.  
  279. *MdmEsc                         { Get the Modems Attention }
  280. *Wait 210                       { Look at MatchStr(s) }
  281.  
  282. *-Label 1               { Label 1 }
  283. *MatchStr 1 2 ~CMDESC           { Look for "ESC" }
  284. *MatchStr 2 2 ~CMDOK            { Look for "OK" }
  285. *MatchStr 3 2 ~NCCARRIER        { Look for "NO CARRIER" }
  286.  
  287. *MdmDisc                        { Disconnect } 
  288. *Wait 300                       { Look for a hit in the MatchStr(s) }
  289.  
  290. *-Label 2               { Label 2 }
  291. *MdmRestore                     { Modem Restore } 
  292. *Exit 0                         { Exit out and return 0 }
  293.  
  294. ###                             { End of File Marker }
  295.  
  296.